
hnetSum = apply(hnet,1,sum)
save(hnetSum, file='hnetSum.RData')
